home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / inet_tcp / iauucp3 / inaddfe.wcx (.txt) < prev    next >
Encoding:
Wildcat! WCX  |  1995-02-12  |  750 b   |  71 lines
  1. '! Decompiled with wccNosy version 4.20f (freeware)
  2. '! Input File: in.wcx  750 bytes  10/03/124  10:26:04am
  3. '! Code Segment Size  :513 bytes
  4. '! Data Segment Size  :4496 bytes
  5. '! String Segment Size:237 bytes
  6. '! Compiled with WCC version 4.01
  7.  
  8.       Declare Function Func411(s65534 As String, s65532 As String) As Integer
  9.       Declare Function Func462(s65534 As String, s65532 As String) As Integer
  10.  
  11.       Dim s4463 As String*25
  12.       Dim s4488 As String
  13.       Dim i4492 As Integer
  14.       Dim i4494 As Integer
  15.  
  16.       Dim s65528_ As String '! Temporary
  17.       Dim s65532_ As String '! Temporary
  18.  
  19.       i4492 = 0
  20.       i4494 = 0
  21.       Open ProgPath + "inaddfe.ini" For Input As 1
  22.    77 Do While Not EOF(1)
  23.         Input #1, s4463
  24.         If Func462((User.SecLevel), (s4463)) Then
  25.           i4492 = -1
  26.         End If
  27.   167 Loop
  28.   173 Close 1
  29.       If i4492 = 0 Then
  30.       Else
  31.   198   Open ProgPath + "baduser.lst" For Input As 1
  32.   223   Do While Not EOF(1)
  33.           Input #1, s4488
  34.           If Func411((User.Name), (s4488)) Then
  35.             i4494 = -1
  36.           End If
  37.   309   Loop
  38.   315   Close 1
  39.         If i4494 = -1 Then
  40.         Else
  41.   342     Chain ProgPath + "iauucp3.wcx", ""
  42.           GoTo 402
  43.         End If
  44.       End If
  45.   366 Print
  46.       Print "@0E@INADDFE - 1994 CyberDeck Systems Software@0F@"
  47.       Print
  48.       Print "Sorry you do not have the required access for this function. If you feel"
  49.       Print "This is in error, please leave a comment to the Sysop. Thank you.@0E@"
  50.       Print
  51.       WaitEnter 
  52.   402 End 
  53.  
  54. '! Called 1 time
  55.       Function Func411(s65534 As String, s65532 As String) As Integer
  56.         Func411 = 0
  57.         If s65534 = s65532 Then
  58.           Func411 = -1
  59.         End If
  60.   454
  61.       End Function
  62.  
  63. '! Called 1 time
  64.       Function Func462(s65534 As String, s65532 As String) As Integer
  65.         Func462 = 0
  66.         If s65534 = s65532 Then
  67.           Func462 = -1
  68.         End If
  69.   505
  70.       End Function
  71.